Chip 1997 December/CHIPNET Aralık 1997.iso/oyun/elf.exe/ELF.EXE/0/RCDATA/TCOMMDLG/TCOMMDLG.txt

Text File | 1997-02-13 | 24KB | 898 lines

object CommDlg: TCommDlg
  Left = 210
  Top = 154
  Width = 476
  Height = 339
  Caption = 'CommDlg'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 271
    Width = 468
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 8
    object ExplorerButton1: TExplorerButton
      Left = 4
      Top = 1
      Width = 42
      Height = 40
      Bitmap.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777770000000777777000007777770000000777700BBBBB00777700000007770
        BBBBBBBBB07770000000770BBBBBBBBBBB0770000000770BBB00000BBB077000
        000070BBB0BBBBB0BBB07000000070BB0BBBBBBB0BB07000000070BBBBBBBBBB
        BBB07000000070BBBBBBBBBBBBB07000000070BBB00BBB00BBB070000000770B
        B00BBB00BB0770000000770BBBBBBBBBBB07700000007770BBBBBBBBB0777000
        0000777700BBBBB0077770000000777777000007777770000000777777777777
        777770000000}
      Caption = 'Ok'
      Options = [boMonoDisplay, boPopupMark]
      OnClick = ExplorerButton1Click
    end
    object ExplorerButton2: TExplorerButton
      Left = 46
      Top = 1
      Width = 42
      Height = 40
      Bitmap.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000C40E0000C40E00000000000000000000008080008080
        8080808080800080800080800080800080800080800080800080800080800080
        800080800080800080800080800000FF00008000008080808000808000808000
        80800080800080800000FF8080800080800080800080800080800080800000FF
        0000800000800000808080800080800080800080800000FF0000800000808080
        800080800080800080800080800000FF00008000008000008000008080808000
        80800000FF000080000080000080000080808080008080008080008080008080
        0000FF0000800000800000800000808080800000800000800000800000800000
        808080800080800080800080800080800080800000FF00008000008000008000
        0080000080000080000080000080808080008080008080008080008080008080
        0080800080800000FF0000800000800000800000800000800000808080800080
        8000808000808000808000808000808000808000808000808000008000008000
        0080000080000080808080008080008080008080008080008080008080008080
        0080800080800080800000FF0000800000800000800000808080800080800080
        800080800080800080800080800080800080800080800000FF00008000008000
        0080000080000080808080008080008080008080008080008080008080008080
        0080800000FF0000800000800000808080800000800000800000808080800080
        800080800080800080800080800080800000FF00008000008000008080808000
        80800000FF000080000080000080808080008080008080008080008080008080
        0000FF0000800000808080800080800080800080800000FF0000800000800000
        808080800080800080800080800080800080800000FF00008000808000808000
        80800080800080800000FF000080000080000080008080008080008080008080
        0080800080800080800080800080800080800080800080800080800000FF0000
        800000FF00808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080008080}
      Caption = 'Cancel'
      Options = [boMonoDisplay, boPopupMark]
      OnClick = ExplorerButton2Click
    end
    object ExplorerButton4: TExplorerButton
      Left = 88
      Top = 1
      Width = 42
      Height = 40
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777707777
        77777777770B0777777777777770777777777777777777777777777777707777
        77777777770B077777777777770B077777777777770B077777777777770BB077
        777777770770BB0777777770B0770BB077777770B07770B077777770BB000BB0
        777777770BBBBB07777777777000007777777777777777777777}
      Caption = '&Help'
      Options = [boMonoDisplay, boPopupMark]
      OnClick = ExplorerButton4Click
    end
  end
  object PanMacro: TPanel
    Left = 0
    Top = 115
    Width = 468
    Height = 54
    Align = alTop
    TabOrder = 0
    Visible = False
    object name: TLabel
      Left = 8
      Top = 8
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = MacroName
    end
    object Key: TLabel
      Left = 8
      Top = 32
      Width = 18
      Height = 13
      Caption = '&Key'
    end
    object MacroKey: TExplorerButton
      Left = 48
      Top = 28
      Width = 153
      Height = 23
      Alignment = taLeftJustify
      Caption = 'MacroKey'
      Options = [boMonoDisplay, boPopupMark]
      OnClick = MacroKeyClick
    end
    object MacroName: TEdit
      Left = 48
      Top = 4
      Width = 413
      Height = 21
      Hint = 'Mnemonic name for macro'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object PanTrigger: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 115
    Align = alTop
    TabOrder = 1
    Visible = False
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = TrigName
    end
    object LABTrigger: TLabel
      Left = 8
      Top = 32
      Width = 33
      Height = 13
      Caption = '&Trigger'
      FocusControl = TrigTrig
    end
    object interval: TLabel
      Left = 8
      Top = 56
      Width = 140
      Height = 13
      Caption = '&Seconds between activations'
      FocusControl = IntervalSecs
    end
    object delay: TLabel
      Left = 248
      Top = 56
      Width = 101
      Height = 13
      Caption = '&Delay before activate'
      FocusControl = DelaySecs
    end
    object TrigName: TEdit
      Left = 48
      Top = 4
      Width = 413
      Height = 21
      Hint = 'Mnemonic name for trigger'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object TrigTrig: TEdit
      Left = 48
      Top = 28
      Width = 413
      Height = 21
      Hint = 'Trigger to be recognized'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object IntervalSecs: TMaskEdit
      Left = 156
      Top = 52
      Width = 37
      Height = 21
      Hint = 'Must be in range 0..9999'
      EditMask = '9999;0; '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '0'
    end
    object DelaySecs: TMaskEdit
      Left = 356
      Top = 52
      Width = 37
      Height = 21
      Hint = 'Must be in range 0..9999'
      EditMask = '9999;0; '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = '0'
    end
    object Remove: TCheckBox
      Left = 280
      Top = 76
      Width = 137
      Height = 17
      Caption = '&Remove original line'
      TabOrder = 6
    end
    object FullLine: TCheckBox
      Left = 132
      Top = 76
      Width = 141
      Height = 17
      Caption = 'Chec&k complete lines'
      TabOrder = 5
    end
    object prompt: TCheckBox
      Left = 8
      Top = 76
      Width = 117
      Height = 17
      Caption = 'Check for &prompt'
      TabOrder = 4
    end
    object ripeti: TCheckBox
      Left = 8
      Top = 96
      Width = 205
      Height = 17
      Caption = 'Ena&ble re-checking on the same line'
      TabOrder = 7
    end
    object last: TCheckBox
      Left = 224
      Top = 96
      Width = 209
      Height = 17
      Caption = '&Last trigger to check if activated'
      TabOrder = 8
    end
  end
  object PanVariable: TPanel
    Left = 0
    Top = 285
    Width = 468
    Height = 78
    Align = alTop
    TabOrder = 2
    Visible = False
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = VarName
    end
    object LABTipo: TLabel
      Left = 324
      Top = 8
      Width = 24
      Height = 13
      Caption = '&Type'
      FocusControl = VarType
    end
    object Label4: TLabel
      Left = 200
      Top = 56
      Width = 54
      Height = 13
      Caption = '&Field length'
      FocusControl = VarLen
    end
    object Label3: TLabel
      Left = 104
      Top = 56
      Width = 7
      Height = 13
      Caption = '&Y'
      FocusControl = VarY
    end
    object Label5: TLabel
      Left = 8
      Top = 56
      Width = 7
      Height = 13
      Caption = '&X'
      FocusControl = VarX
    end
    object LABNum: TLabel
      Left = 8
      Top = 32
      Width = 68
      Height = 13
      Caption = 'Numeric &value'
      FocusControl = VarValue
    end
    object VarName: TEdit
      Left = 44
      Top = 4
      Width = 273
      Height = 21
      Hint = 'Mnemonic name for variable'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object VarType: TComboBox
      Left = 356
      Top = 4
      Width = 106
      Height = 21
      Hint = 'Type of content'
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      Items.Strings = (
        'string'
        'numeric')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object VarStatic: TCheckBox
      Left = 364
      Top = 29
      Width = 57
      Height = 17
      Hint = 'If checked, this variable survives during configuration changes'
      Caption = '&Static'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object VarMonitor: TCheckBox
      Left = 364
      Top = 55
      Width = 89
      Height = 17
      Hint = 'Check to show this variable in debug window'
      Caption = '&Monitorized'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
    end
    object VarLen: TSpinEdit
      Left = 260
      Top = 52
      Width = 57
      Height = 22
      Hint = 'Chars shown in debug window'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 200
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Value = 0
    end
    object VarY: TSpinEdit
      Left = 120
      Top = 52
      Width = 57
      Height = 22
      Hint = 'Y position in debug window'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 200
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Value = 0
    end
    object VarX: TSpinEdit
      Left = 24
      Top = 52
      Width = 57
      Height = 22
      Hint = 'X position in debug window'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 200
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Value = 0
    end
    object VarValue: TMaskEdit
      Left = 84
      Top = 28
      Width = 69
      Height = 21
      Hint = 'Value must be numeric'
      EditMask = '999999999;0; '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 9
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '0'
    end
  end
  object PanAlias: TPanel
    Left = 0
    Top = 363
    Width = 468
    Height = 53
    Align = alTop
    TabOrder = 3
    Visible = False
    object Label6: TLabel
      Left = 8
      Top = 8
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = AliasName
    end
    object LABPattern: TLabel
      Left = 8
      Top = 32
      Width = 34
      Height = 13
      Caption = '&Pattern'
      FocusControl = AliasPattern
    end
    object AliasName: TEdit
      Left = 48
      Top = 4
      Width = 413
      Height = 21
      Hint = 'Mnemonic name for alias'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object AliasPattern: TEdit
      Left = 48
      Top = 28
      Width = 301
      Height = 21
      Hint = 'Pattern to be recognized to activate alias'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = AliasPatternChange
    end
    object ExtPattern: TCheckBox
      Left = 360
      Top = 30
      Width = 101
      Height = 17
      Hint =
        'Check this to instruct ELF to expand the variables contained'#13'in ' +
        'the pattern each time the pattern is checked.'#13'Use with care, bec' +
        'ause this option slows ELF down'
      Caption = 'E&xtended pattern'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
  end
  object PanButton: TPanel
    Left = 0
    Top = 416
    Width = 468
    Height = 29
    Align = alTop
    TabOrder = 4
    Visible = False
    object Label7: TLabel
      Left = 8
      Top = 8
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = ButName
    end
    object ButName: TEdit
      Left = 44
      Top = 4
      Width = 417
      Height = 21
      Hint = 'Text showed in button'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 474
    Width = 468
    Height = 11
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 7
    object toolbar: TPanel
      Left = 0
      Top = -16
      Width = 468
      Height = 27
      Align = alBottom
      BevelOuter = bvLowered
      Color = clLime
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      object BytesLeft: TLabel
        Left = 328
        Top = 7
        Width = 25
        Height = 13
        Hint = 'Number of characters'
        AutoSize = False
        Caption = '0'
        ParentShowHint = False
        ShowHint = True
      end
      object test: TLabel
        Left = 356
        Top = 7
        Width = 25
        Height = 13
        Hint = 'Number of characters after compression'
        AutoSize = False
        Caption = '0'
        ParentShowHint = False
        ShowHint = True
      end
      object ANSIWiz: TExplorerButton
        Left = 1
        Top = 1
        Width = 95
        Height = 25
        Bitmap.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888800008887788887788887788800008800078800078800078800008099
          9070AAA070CCC078000080999070AAA070CCC0780000870907770A07770C0778
          000080999070AAA070CCC078000080999070AAA070CCC0780000800990700AA0
          700CC0780000800990700AA0700CC0780000800990700AA0700CC07800008009
          90700AA0700CC078000080999070AAA070CCC0780000870907770A07770C0778
          000080999070AAA070CCC0780000870907770A07770C0778000080999080AAA0
          70CCC0880000880908880A08880C088800008880888880888880888800008888
          88888888888888880000}
        Caption = 'ANSI &wizard'
        Layout = blBitmapLeft
        Options = [boMonoDisplay, boPopupMark]
        OnClick = ANSIWizClick
      end
      object CommandWiz: TExplorerButton
        Left = 96
        Top = 1
        Width = 113
        Height = 25
        Bitmap.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000EB0A0000EB0A00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770777033333
          3330870700033337073000770333333070008870073333370077700070333333
          0770703707333300080700333333330778083330003333000807073070370733
          0780700070007037007800777770073070000770007703370730080777070003
          3330780807077703333308078707000333333780007703333333}
        Caption = 'Command wi&zard'
        Layout = blBitmapLeft
        Options = [boMonoDisplay, boPopupMark]
        OnClick = CommandWizClick
      end
      object FunctionWiz: TExplorerButton
        Left = 209
        Top = 1
        Width = 105
        Height = 25
        Bitmap.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
          DDDDDDDD0000DDDD777777777777DDDD0000DDD00000000000007DDD0000DD0F
          EFEFEFEFEFEF07DD0000DD0E00000E00000E07DD0000DD0F88880F88880F07DD
          0000DD0EFEFEFEFEFEFE07DD0000DD0F00E00F00E00F07DD0000DD0E80F80E80
          F80E07DD0000DD0FEFEFEFEFEFEF07DD0000DD0E00F00E00F00E07DD0000DD0F
          80E80F80E80F07DD0000DD0EFEFEFEFEFEFE07DD0000DD0F00000000000F07DD
          0000DD0E08181881880E07DD0000DD0F08818818180F07DD0000DD0E00000000
          000E07DD0000DD0FEFEFEFEFEFEF0DDD0000DDD0000000000000DDDD0000DDDD
          DDDDDDDDDDDDDDDD0000}
        Caption = 'F&unction wizard'
        Layout = blBitmapLeft
        Options = [boMonoDisplay, boPopupMark]
        OnClick = FunctionWizClick
      end
      object SyntaxHilight: TCheckBox
        Left = 388
        Top = 5
        Width = 97
        Height = 17
        Caption = 'Syntax &hilight'
        TabOrder = 0
        Visible = False
        OnClick = SyntaxHilightClick
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 21
      Width = 468
      Height = 30
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 2
      object NoEdit: TEdit
        Left = 0
        Top = 0
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object comms: TRichEdit
        Left = 0
        Top = 0
        Width = 468
        Height = 30
        Hint = 'Commands to be executed'
        Align = alClient
        BorderStyle = bsNone
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Fixedsys'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
        OnChange = CommsChange
      end
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 21
      Align = alTop
      TabOrder = 1
      Visible = False
      object Active: TCheckBox
        Left = 8
        Top = 2
        Width = 57
        Height = 17
        Caption = '&Active'
        TabOrder = 0
      end
      object AutoExec: TCheckBox
        Left = 100
        Top = 2
        Width = 97
        Height = 17
        Hint = 'Check to make the macro auto-executable'
        Caption = 'Auto e&xecute'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
    end
  end
  object PanMouseSB: TPanel
    Left = 0
    Top = 445
    Width = 468
    Height = 29
    Align = alTop
    TabOrder = 5
    Visible = False
    object Label8: TLabel
      Left = 8
      Top = 8
      Width = 38
      Height = 13
      Caption = '&Variable'
      FocusControl = LinkedVar
    end
    object LinkedVar: TEdit
      Left = 52
      Top = 4
      Width = 409
      Height = 21
      Hint = 'Variable associated with button'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object PanTrigWiz: TPanel
    Left = 0
    Top = 169
    Width = 468
    Height = 116
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 6
    Visible = False
    object Panel6: TPanel
      Left = 320
      Top = 0
      Width = 148
      Height = 116
      Align = alRight
      TabOrder = 1
      object Label9: TLabel
        Left = 4
        Top = 4
        Width = 56
        Height = 13
        Caption = 'P&arameters:'
        FocusControl = ParamsLB
      end
      object ParamsLB: TListBox
        Left = 2
        Top = 20
        Width = 143
        Height = 93
        Hint =
          'Double-click to insert the reference'#13'to the selected parameter i' +
          'n the'#13'commands to be executed'
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = ParamsLBDblClick
      end
    end
    object Panel7: TPanel
      Left = 0
      Top = 0
      Width = 320
      Height = 116
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object Panel8: TPanel
        Left = 0
        Top = 91
        Width = 320
        Height = 25
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = Panel8Resize
        object PasteCommands: TExplorerButton
          Left = 0
          Top = 0
          Width = 181
          Height = 25
          Bitmap.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000EB0A0000EB0A00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333033333
            3333333330B033333333333330F033333333333330B003333333333330F0F003
            3333333330B0B0B03333333300F0F0F033333330B0BFBFB033333330F0FBFBF0
            33333330BFBFBFB0333333330BFBFB033333333300000000333333330EEEEEE0
            3333333300000000033333330000000B03333333000000000333}
          Caption = '&Paste commands'
          Layout = blBitmapLeft
          Options = [boMonoDisplay, boPopupMark]
          OnClick = PasteCommandsClick
        end
      end
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 320
        Height = 91
        Align = alClient
        TabOrder = 0
        object CommsLB: TListBox
          Left = 1
          Top = 1
          Width = 318
          Height = 89
          Hint = 'Select commands to be pasted and then'#13'press the button below'
          Align = alClient
          ItemHeight = 13
          MultiSelect = True
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
      end
    end
  end
end